home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / qbfaqr01.zip / POSTIT27.QRM < prev    next >
Text File  |  1992-08-15  |  7KB  |  102 lines

  1. DEFINT A-Z:FOR A=0 TO 6:P(A)=2^A:NEXT:OPEN "B",1,"POSTIT27.ZIP"
  2. T$="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789()"
  3. G"qT0aeOaagaGbamYHkKH48zsOQjbaa8Cmaaadaaaaq90uuLevYCJlcf0uHPWEhyWggSldln
  4. G"qchSqclKWbwCacguGbhyqb2CGfxSGcgGGcluGbvqGbxuGciuGbvyGcLyachGHchOaclCWc
  5. G"eucbLqGcgqqbuuqc0CGbxKGgRWp)8V)(7ZWcSSallWZcSScRmeGiJqrf2CdAjQ528uGbsm
  6. G"cfLBVL3h7)xGdlP91LRLq5pc5Kxg)MH735QrLFuVpRVDlX7KOh9CkQy4oIiFTu5x(6yF7x
  7. G"EV(vTRgplx7hR(9M8Zwc)O8tDE58EJVd()V)(tDD(1M3wQ4WFV0Yv5Rq61DDbFdXUk)J61
  8. G"(w9NJD7ouc8BfL3FQxhpBH7hseepS(PoU9Gr)2n2UkT8hTD)SSVb3NGFsZBL2xVJgJVT2)
  9. G"3hpnpV)M))S8xUoQ(3R9)n2lxA7EDL)))8YLN1)F)4)8xUd)Ie)ZW9pUxYJXNkxR)sB7v3
  10. G"Ek)xEs4ELPFtmMVoknV8RDz8)5OUR)JiCVTS(Vw(l7m9)R3Bx3Rm(6(FT8Z5z(FkwCzbU3
  11. G"1F8vCV7omDkDVxcMFJNdd(LwM3G9EB(a0pJVvVx4CzF7QQb7tjMq5BEg0EWX6Y2CdGQarN
  12. G"qS51L)V2(55E8FmAVjq)YAE02hA7Z)QxraP2EohY)7ZlWo54P89A(m(c3Zt17pk)QEKdZQ
  13. G"jVhZLBs3w41ZRdq3HJ0F8phlFJ7V3IGY91GlxLpsv)RlZ1QH3Js91396J4lv)fo2dQ9pKO
  14. G"hQQQ3ZXYIFxFuBA()hgFRFx7z(C5hHNZ57F8xNu0F)Nx16QT)lh6VFQRsRJRx)YSisXIwO
  15. G"oMee4hCm2Xl9fN27i1eIoFr26XnJVKTPS7HRDLCJ1HC9NU)5vE2EASCVPE(1Xh0wa7L2HJ
  16. G"XGJ8eDRpaWFP3ImT21MW1z46jINkbdkBwBPYh5JG943hR(0t0Q6RXb5WXb1fgBZ5lnLkAR
  17. G"92xSyV)drt9z9Qb9D38onVV)rDto5X9ggkGpxRT8D)0((NxUoVcP2THFR5F9lwy3Fw3PSR
  18. G"DzF2yOZ8kdz19QlVRv2NpRl3(8w(VTlINAzpRj9hNyfRyflFUG7lJVc9ssgNg970BSIvCS
  19. G"O7yt7xNbWFjVJvYj2UvSuUlJ3c5TTE535n5YA83PSlMF6ggc9XVlAE8m5uMVnQjrt8w)Ni
  20. G"4yYB12hXEKC((OXEDtER)SiN3)kpA138((q)34qMlnoY1flNL87(FnKnFFhsV9oAp(P74S
  21. G"S73huNkxvztvGP0TH3B4d9HT8CClj64Ud113pI9cPRe72A2(EUVNaA)Rey8zDxJ4E12QAg
  22. G"27a9TQo(k3hsvX5xsghIMQZDJSnVHOPcDEj79FfuprKPm9ltRZF0EX(5)JZXvJ7T4iY27B
  23. G"WVIqic9OXeg)Hl2mmCm)KgRN294F3OYE()Bv8hQ)(C1kE942QXByMFwy8DqS51(TWDb496
  24. G"d97v6Q2fdRAMDGQu1STIfUOEZDYszP5JyRs0HTFzlAXtBFV(qUJldvQTCAtJJjmW87tw)n
  25. G"u2SwF8VjMSlbXS4Xr7v721UJtEmEXDBZ6AmYsEpC5QYLtyzBFAEx80IenAM)pnBOL3vRCf
  26. G"cLWz5J9sHmT9EocXh(WfshN6OHVPe1Omielm7NCVUjfI2PDRedJih6HwisUtYj7SYmgzKE
  27. G"0lSagVIX6Qz6wmJy4UrL7gW5xgIBQ7MOnOEz9wvNGLX0fvCcSooHNqaOTVwFSOOVxvU2iR
  28. G"xVkdOrG9DDw9(vKhFDaN)LPiiC5wLFxuziIN9qb5FhV2(DZC3wiJDW5vHsmYjlwzBL8SKp
  29. G"S83B0yMXqQShp65BuyPIQf221UJNFBKw7QvF2ar76yhli7dYJc)tLijmfoCsx1lZ5Pxn7L
  30. G"8ftT6Dfsn30jXyAZlDTzU(YTPkVgQ92fniQjChnYh8B916DSxT1WUTd3V6(EDRwoAGTtE8
  31. G"pkuP3VUwSG7gv8tRKuHj3cs)z4iUZX8knlcKce9phHR5E9WPRBS4tVZvR65hg9I)27(Ax6
  32. G"4nnpnNRUQKfZAqa3xp(m)FK0(6B7L(u1)GWFDvh1YIAUXPxL3MsVkRENYSiYIkgYVcwwGJ
  33. G"wqrflr4b9A9hpner33rD71U1V1goQN2F6K8)P8C61oTFVUSCJ07W3r9h359NsI9g1Aq3E)
  34. G"EZLZP9YwO4x44ca64Ttm1FR4V2o)CgQkhpP5Lud3IqEl2Jmhkyo0L2SW98OXkfoou489GK
  35. G")TRCvBPWm94POI14o3ceBprJlt04nhnUKJgVzPXLS14nDnUKLBpXGJlzYXB25OENOkO4Rw
  36. G"iDJBtuPfvSYcQc3j1rXEkUh1TF3o)jzbZj)4yLChiADyGVHYipqhh3o2B4BOsUxEtipGlK
  37. G"dcpS8IJfdpdcx)KygbxZtW1qHT7oT6mi5qrHORkf8)X2cv4qOck4hSbPa8rgsew)4ehf42
  38. G"EGWv19aSc8g1U8xDKnonL9Tu40RgZLs6biLApoKdqFU6m)2BiPha6TF7x8h80SF4knas6s
  39. G"XmpdIqVubGivt3IkhgNib)se4DyxloLuwzqV3)GEjLiS)08PoyKAdZQJ0ZHOVwPrlvCoEb
  40. G"fa3rArdAP7P6iXTG2Nt73TBs)ihLb9F1QuTBvRAH)GZekalakuVJD5NWtLPxVGrSyAFJLz
  41. G"3ToCCyR5KvMzed2dVadZk2tHnVB8i5lnpXAsEzNTaF6EdRSZjJyKrbQey92HLsVz6DAHhn
  42. G"133K8UGLQLQuQmUX9DDQ43WFvggTXzH96CYkFnF5yjuYDr8TzsILLtDTBFU4400y7yJRRl
  43. G"tQwe2fj0cYU6PwFZlJgYXK5lva8ofA9UnmzF7XrI83Q7FYVDR3Km0A1dyd416ofgNq4OjK
  44. G"WtEWqgtK5)BN)FsbfqvQH(Gwe)63DV3qxzpLeTpZJTBzZQ4H8h2m(HDCDP07HBobFLw7k8
  45. G"kULJTn5LrBvqQnnFMs8XZ)hN8IdLfLPxxDhYcUXV5TCxUeuH8MsRqbIhHBVtvzrNcA8ogB
  46. G"h3PcjvhwIJg3(nuui33YCA()maXxenvS4xxILXkA0u4u2J2H4)jtZaxUVGjxthDCG8w2tr
  47. G"9MupCo9GEOwVPGPhstofDlQMEknNIOho09MDm(8u68qU5nJt7pQDhe2YCKn2pL5Nu32sOT
  48. G"mhPQhd2b3Dp6OXTE99HS6858jS)zJ0rsBBThKEv4c8oMOGs9iC4DgAyI03bfELoKVirek4
  49. G"pLkDFqpZQbJ8akjnFteARD)MfpcNNWRWlllXQHGPNkoIIvxM1olCihUf24M5i6MalpuyGZ
  50. G"MnWj4bJIr(QMj4Fz8f)ua5uPdSOjucDxqb5)Z2oFQDhPPjmptWBzcEkpceN9lbC2LeBhU3
  51. G"noWhrEXrWV2ZYCIUZm7QpOIVx1XghEEG5dTPAcsVIy5c5iffRLwRl)SfQqg9mla3HBubZY
  52. G"38S8wHarLJlvboIoovvZsapKcEeg4HEGRNi0p6zIVpawCIEMghqyMz4UXH2gP(h6ro(lmm
  53. G"g33IgbMEGaHhpKGMHdPhtPg)4rIjLMGPpC)YemHcKu0RraPIMsqJ(yICQyjs8VxAKhbEyr
  54. G"rR(Y6ZQ8se30SwIK3pmhdHK1cjoXfozDtOHbVrqDBt1JtvnbhqNAAIttVChtFFaijpBZNV
  55. G"K4UpqioQLcojsupoljJ5Wvtgo5p(81mPOGDxepKy60PaqTvXxuPL6Sy)1geKkDIkdLZHRc
  56. G"xvCSB2FDC5nQGULnKuTVry93ItdBCzwVHk7l2PojRR51fPNCe)siI5DhfLoHIcZwKssIET
  57. G"yrLOQRBdrcfyDz082MqelsUbsgrLxRqvTED7kvhPAKlq85rQAUgNoM4NpYwj2DnZyyiHZy
  58. G"utXOxB0iHnP04cXy4faZxnByaWK4BP9aip(Tl4GirZWytjuemsG1GrapPBse5V5Faf2Uj2
  59. G"s7yh3(hmjhM0Qh06KONZp2YYVPNawtAAm2PaSsk058AzbkU4cCGl2RLUzaxsYqQfcFIaPi
  60. G"gbfG006JfmjhaeUrKPrJS1XPLRWcAmIwsir50YjyW4OPJGgnvx0EhIO9AQqCj)j5tXvzfX
  61. G"f5L5dRvOin1UGhgaGo(iELxKqBSROcOUH7Ofv6R)Nl9dzZxl3sYmoGl(2)SvfCMc8TH8tm
  62. G"2IcMwiQ4dOisdUX1lzD9HWckTWQHYcYlpfBLvp8OXPhuySpOlQOYLAEkqqmaew7UeYH6Tn
  63. G"MFND32Atm85IRZDHqCZc3(LMY)SNW9fdyKxaQ9Y98TkSnSiuXUThznrlOl7gbjvw4GRtFT
  64. G"Z51kWbbXRO6amwyGF5reigiS(Az1eB2pFCv5keGND0V4EeqYi2Eqtj4y2b6wwJUNyjYS8d
  65. G"HWwTxobux5hBEUoHjwnHP1VBCvxFt)uxRq1evWcvOk)PXTLGYUlCGRW4yEfuFCJScAoko7
  66. G"focDUoSbWHO7pz12qcT4cGI20Nj7NBWbWLnG3fif3FJbfxHNWqtahbyQ12ZmuRYpuQXV95
  67. G"v1kAHhUBtn8g9l8JhgHynPR2nsC6LwC8Wb3HivdNgNOfMPLtMzgndADuOOGqIWIRJPvgmS
  68. G"gRhyAhIRTTb5DWb9ivnHdluc0PrtiQnAMBECGzqtHRXjKErZEdn)jrleVWj5MBipwJlieU
  69. G"NJNgmgwO6ThNgmsSL0apvei5OgT(PfdNpuroTwHWjvymM2VGOb1LiNwK)6)BfRKkuLF)06
  70. G"pnNOLAOinFRezHdjmliASA3j5NFQHcECcShQqCewhbwJGcIP9CzWAWdQCvcAHPgst1cyhV
  71. G"9Cd4IVA1X1SbFuJ2G0ge2tIwR0mGQBfkYNwQzuOi)b5JcLNojAJsRWrHDRcIvos8hfcNtM
  72. G"XiSlCe2lcKxq0682kXo9SKdB7XrRdKEnATJcNiE4FuOiAJ4Qpue2ak7XHI8nOXuvfF6phk
  73. G"6uaVls(f(8O(D9trKxHQUs0qhJbdQSiXj6yy6FEd9j3hHIqhMmJjwfrbUQxx891H5wJLgo
  74. G"nFmJTW1cWqlGPTTmfKieTHnSJJenA0i4HfJ5ytDqVXDcnK0Igkkiyt)UPuiPKfsrHumBQs
  75. G"nrG3WCq)(KJbCy0kWid5c2ATND2DZgLDPOCzaDZO9dVnhqbBpDroNGgefE1E(0ibhEFqLD
  76. G"RlXRHornNzdAWXPve5IReuiIRtoJcohG(eSA3fmLnnkrp1pGXsz2v9vMKpSqMD1LhiRUBd
  77. G"1YZXr8dp4QsCjwsRUJ1315ABp0qG1QLrfcHC(WWbpFlsmWoMZs081ucAJU6CIi)FV74n7j
  78. G"VuoFQkqqW6k7rkfjZ1XejrGvacWcGvNtj9ittgWTZjchLxKtyuasooMeQB7Xtv8QKle8iI
  79. G"IGKayS9bracmhmleak55ajrYWv6uZea08FOzvmXU9YZMCaf6xmyNQbRstehwU4tCMdK0Yf
  80. G"Aro8WgUlYF6yqAgooGDcomH(hwathPaMX(cUeaBqSvl8d2kdHxbqMTWhbkEwZGsmiyogjm
  81. G"PK8nLfE(F)0K8DNdshTeSmujabxSlmTP4S0J9NLsQ8hRNpl3gnC7gfB)3)6lx)yoCU9P2T
  82. G"bSqcQSGKBWIhkauvt0A(QbNs0sJNZgZeT8iUoRiv52uEP(V(ZI3o5(PS8SepAtUGAX5W(p
  83. G"UGFSqIHq0juCoewq9JHtFZovvDHJXm5C83)kprWJf0Kf1DCftzUXHEdSWIzpAN7YQiflGc
  84. G"vaP6k8BAeaNvHQsHE)GI4GL2XRR7qjaFL)Eb58rSxiHueKtTdQaOKJxJvp(HJ5lhiEfsbe
  85. G"WpIhhx0HTsihLAoLuuMivxGCuL5JgQqne(VpVkJnQEBp)afFKgXoqGyMqWYNI8hCke)4eX
  86. G"3g3L89IEuScZSS1L46GPI9I5v2yOCKqLVd92kOZRgcMRVFVcw3LNeUbRRHfLYRomp2KIkm
  87. G"8fWoInKCckN)NFWeD(iELQw)2v3ibLQf)LQqjcoFTqgxWLgJKWWYePICHlZPEqgc1CeACj
  88. G"I7rwj3dw7kx1wkSaT0PqW68HNnJFAIEjOt6crpm5HaMxJxGIUiajcdp8hw)WqFR8j0gOXF
  89. G"hBvdxvCLtNnotwUqmRaYhpXKGuJJh2)0r8u)dbzowPLDkzveppSR3yuWzImtJitQVlSpvc
  90. G"4flF8U(U2sioc0HXLx9DtLxJr2fa5PumZgWc0KDmyNbbOgEi8pgz5fj4M3HO9gMSsm(Loz
  91. G"nuB1GgLg6PA9JTBJxnOjQJQkyj(KiyJAadOh3AWiAvGaOKk)A(AqbJtCYEPt5etCcbI50q
  92. G"yPrYWWdm2zf1UQgepVDyGLyJQsYdK2tZf6OOggiLYJFkiPugAS1UZGOgfv8Nv5nMlMsmdm
  93. G"XDD4fyrTVmi8cDHs9GXyPiwaho9NwifxiA8KyyJgwa1sbiWcaOaagaGbamYHkKH48zsOQj
  94. G"baa8CmaaadaaaaaaaaaeaaGaaaaaaaaaaupnfvjrLm34IqbnfulvGbaaaaaeaabaGoaaaa
  95. G"ukbaaaaa"
  96. N=4836:K=255:IF LEN(C$)<>6448 THEN ?"Incomplete script file!":BEEP:END
  97. FOR A=1 TO N:LOCATE ,1:?(100&*A)\N"% done";:IF L=0 THEN GOSUB G:L=6
  98. W=T\P(6-L):GOSUB G:W=W OR T*P(L):L=L-2:B$=CHR$(W AND K):PUT 1,,B$:NEXT
  99. ?:IF C<>178 THEN ?"Bad checksum!":BEEP:END ELSE ?"Success!":END
  100. G:I=I+1:T=INSTR(T$,MID$(C$,I,1))-1:C=(C+T)*2:C=C\256+(C AND 255):RETURN
  101. SUB G(A$):SHARED C$:C$=C$+LEFT$(A$,70):END SUB
  102.